home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh40.d64
/
adressdatei v2.4
(
.txt
)
next >
Wrap
Commodore BASIC
|
1995-03-30
|
891b
|
21 lines
1 PRINTCHR$(14):D$=CHR$(17)+CHR$(17):I$=CHR$(18):C$=CHR$(147):H$=CHR$(19)
2 U$=" [193]DRESSEN ":A$(0)="1 [204]ISTE":A$(1)="2 [211]UCHEN":A$(2)="3 [197]INGABE"
3 A$(3)="4 [197]NDE":B$(0)="[193]NREDE:":B$(1)="[214]ORNAME:":B$(2)="[206]AME:"
4 B$(3)="[211]TRASSE:":B$(4)="[208][204][218]:":B$(5)="[207]RT:":B$(6)="[212]ELEFON:":E$=CHR$(34)
5 PRINTC$;:PRINTTAB(2);I$;U$;D$;D$:FORI=0TO3:PRINTTAB(2);A$(I);D$:NEXTI
6 PRINTTAB(2);D$;I$;" [193]USWAHL 1-4 ";:INPUTX:IFX<1ORX>4GOTO5
7 ONXGOTO8,10,14,17
8 RESTORE:READE:FORI=1TOE:FORJ=0TO6:READE$(J):NEXTJ:GOSUB19:PRINTH$:FORJ=0TO6
9 PRINTTAB(13);D$;E$(J):NEXTJ:POKE198,0:WAIT198,1:NEXTI:GOTO5
10 PRINTC$;D$;D$:INPUT"[211]UCHBEGRIFF: ";S$:RESTORE:READE:FORI=1TOE:FORJ=0TO6
11 READE$(J):NEXTJ:FORJ=0TO6:IFS$<>E$(J)GOTO13
12 GOSUB19:PRINTH$:FORK=0TO6:PRINTTAB(13);D$;E$(K):NEXTK:POKE198,0:WAIT198,1
13 NEXTJ,I:GOTO5
14 GOSUB19:PRINTH$:FORI=0TO6:PRINTTAB(13);D$;:INPUTE$(I):NEXTI:RESTORE:READE
15 E=E+1:PRINTC$;"100DATA"E:FORI=0TO6:PRINT100+E*10+I;"DATA"+E$+E$(I)+E$:NEXTI
16 PRINT"GOTO1":POKE631,19:FORI=1TO9:POKE631+I,13:NEXTI:POKE198,10:POKE2,1:END
17 IFPEEK(2)=0THENEND
18 OPEN15,8,15,"S:ADRESSEN":CLOSE15:SAVE"ADRESSEN",8:END
19 PRINTC$:FORL=0TO6:PRINTTAB(2);D$;B$(L):NEXTL:RETURN
100 DATA 0